home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Plugins / led.e < prev    next >
Encoding:
Text File  |  1997-02-13  |  1.3 KB  |  53 lines
  1. OPT MODULE
  2.  
  3. MODULE 'tools/EasyGUI', 'graphics/rastport',
  4.        'intuition/intuition', 'intuition/imageclass',
  5.        'images/led', 'utility/tagitem'
  6.  
  7. EXPORT OBJECT led OF plugin
  8.   pairs
  9.   values:PTR TO INT
  10.   colon
  11.   signed
  12.   negative
  13.   pen
  14. PRIVATE
  15.   ledbase
  16. ENDOBJECT
  17.  
  18. PROC led(pairs=2,values=NIL,colon=FALSE,signed=FALSE,negative=FALSE,pen=1) OF led
  19.   self.ledbase:=OpenLibrary('images/led.image',37)
  20.   IF self.ledbase=NIL THEN Raise("led")
  21.   self.pairs:=pairs
  22.   self.values:=values
  23.   self.colon:=colon
  24.   self.signed:=signed
  25.   self.negative:=negative
  26.   self.pen:=pen
  27. ENDPROC
  28.  
  29. PROC end() OF led
  30.   IF self.ledbase THEN CloseLibrary(self.ledbase)
  31. ENDPROC
  32.  
  33. PROC min_size(ta,fh) OF led
  34. ENDPROC self.pairs*19-IF self.signed THEN 0 ELSE 5,12
  35.  
  36. PROC will_resize() OF led IS RESIZEX OR RESIZEY
  37.  
  38. PROC render(ta,x,y,xs,ys,w:PTR TO window) OF led
  39.   DEF led
  40.   IF (led:=NewObjectA(NIL,'led.image',
  41.            [IA_FGPEN,self.pen, IA_WIDTH,xs-1, IA_HEIGHT,ys,
  42.             IF self.values THEN LED_VALUES ELSE TAG_IGNORE,self.values,
  43.             LED_PAIRS,self.pairs, LED_COLON,self.colon,
  44.             LED_SIGNED,self.signed, LED_NEGATIVE,self.negative,
  45.             NIL]))=NIL THEN Raise("led")
  46.   DrawImage(w.rport,led,x,y)
  47.   DisposeObject(led)
  48. ENDPROC
  49.  
  50. PROC redisplay() OF led
  51.   IF self.gh.wnd THEN self.render(NIL,self.x,self.y,self.xs,self.ys,self.gh.wnd)
  52. ENDPROC
  53.